inherited dmLogin: TdmLogin
  inherited qryMaster: TFDQuery
    SQL.Strings = (
      'SELECT'
      '  fldCompanyCode, '
      '  fldCompanyName '
      'FROM'
      '  tblSystemParameters')
    object fldCompanyCode: TStringField
      FieldName = 'fldCompanyCode'
      Origin = 'fldCompanyCode'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 30
    end
    object fldCompanyName: TWideStringField
      FieldName = 'fldCompanyName'
      Origin = 'fldCompanyName'
      Required = True
      Size = 50
    end
  end
end
